## Not run:
# e <- einfo("pubmed")
# e[1:5]
# e["Description"]
# e[["Links"]]
#
# e2 <- einfo("pubmed", retmode = 'json')
# e2[["header"]]
# e2[["einforesult"]][["dbinfo"]][["description"]]
# ## End(Not run)
Run the code above in your browser using DataLab